@coins = ("daiqianying","lile","lizhuang","yangruimin");

print "1. \@coins = @coins\n";

push(@coins,"data");  		#放入数组最后一个

print "2. \@coins = @coins\n";

unshift(@coins,"haha");		#放入数组最前方

print "3. \@coins = @coins\n";

pop(@coins);				#移除最后一个元素

print "4. \@coins = @coins\n";

shift(@coins);				#移除第一个元素

print "5. \@coins = @coins\n";
